home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / ewjdemo.dir / 00023_score script on video button.ls < prev    next >
Encoding:
Text File  |  1995-12-11  |  716 b   |  33 lines
  1. on mouseDown
  2.   stopAllQT()
  3.   puppetSound("MoreB")
  4.   set Lob to the number of cast "video.pict.Lo"
  5.   set HiB to the number of cast "video.pict.hi"
  6.   puppetSprite(14, 1)
  7.   set the castNum of sprite 14 to Lob
  8.   updateStage()
  9.   startTimer()
  10.   repeat while the timer < 15
  11.     nothing()
  12.   end repeat
  13.   set the castNum of sprite 14 to HiB
  14.   updateStage()
  15.   startTimer()
  16.   repeat while the timer < 15
  17.     nothing()
  18.   end repeat
  19.   set the castNum of sprite 14 to Lob
  20.   updateStage()
  21.   startTimer()
  22.   repeat while the timer < 15
  23.     nothing()
  24.   end repeat
  25.   set the castNum of sprite 14 to HiB
  26.   updateStage()
  27.   puppetSprite(14, 0)
  28.   blackFrame()
  29.   sound stop 2
  30.   play frame "EARTHWORM" of movie "MOVIES.DIR"
  31.   go("none")
  32. end
  33.